home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Menus / ircopp.mrc < prev    next >
Encoding:
Text File  |  1998-04-13  |  4.2 KB  |  110 lines
  1. menu channel {
  2.   &IRCop Coms
  3.   .&OPER:oper $$?="Nickname/Code" $$?="Password"
  4.   .&Omode:omode #$$?="Channel" $$?="Please enter mode ( - mode too)"
  5. .&SAmode:samode #$$?="Channel" $$?="Please enter mode ( - mode too)"
  6.   .&Trace:trace $$?="Servername"
  7.   .&Wallops:wall $?="Enter wallop message"
  8.   .&Kill:kill $$?="Nick to be killed" $$?="Reason For Kill"
  9.   .&Mass Kill:mkill $$?="Host/Address to kill:" $?="Reason for kill:"
  10.   .&Nick Kline:kline $$?="Nickname" $$?="Reason for Kline"
  11.   .&Address Kline:kline add $$?="Address" $$?="Reason for Kline"
  12.   .&GlobOps:globops $$?="GlobOps Message"
  13.   .-
  14.   .&Server Coms
  15.   ..&Rehash Server:rehash
  16.   ..&Restart Server:restart
  17.   ..&Server Quit:squit $$?="ServerName" $$?="Reason"
  18.   ..&Connect Server:connect $?="Server Not on the net" $$?="Port"
  19.   ..&Remote Connect:connect $?="Server not on the net" $$?="Port" $$?="Server on the net"
  20.   .&Globals
  21.   ..&Global Notice:global $$?="Notice"
  22.   ..&Global Message:globmsg $$?="Message"
  23.   ..&Global Action:globme $$?="Action"
  24.   .&Host Globals
  25.   ..&Global Notice:ghost $$?="Host (eg. *.ix.netcom.com)" $$?="Notice"
  26.   ..&Global Message:ghostm $$?="Host (eg. *.ix.netcom.com)" $$?="Message"
  27.   ..&Global Action:ghostme $$?="Host (eg. *.ix.netcom.com)" $$?="Action"
  28. }
  29. menu status {
  30.   &IRCop Coms
  31.   .&OPER:oper $$?="Nickname/Code" $$?="Password"
  32.   .&Omode:omode #$$?="Channel" $$?="Please enter mode ( - mode too)"
  33. .&SAmode:samode #$$?="Channel" $$?="Please enter mode ( - mode too)"
  34.   .&Trace:trace $$?="Servername"
  35.   .&Wallops:wall $?="Enter wallop message"
  36.   .&Kill:kill $$?="Nick to be killed" $$?="Reason For Kill"
  37.   .&Mass Kill:mkill $$?="Host/Address to kill:" $?="Reason for kill:"
  38.   .&Nick Kline:kline $$?="Nickname" $$?="Reason for Kline"
  39.   .&Address Kline:kline add $$?="Address" $$?="Reason for Kline"
  40.   .&GlobOps:globops $$?="GlobOps Message"
  41.   .-
  42.   .&Server Coms
  43.   ..&Rehash Server:rehash
  44.   ..&Restart Server:restart
  45.   ..&Server Quit:squit $$?="ServerName" $$?="Reason"
  46.   ..&Connect Server:connect $?="Server Not on the net" $$?="Port"
  47.   ..&Remote Connect:connect $?="Server not on the net" $$?="Port" $$?="Server on the net"
  48.   .&Globals
  49.   ..&Global Notice:global $$?="Notice"
  50.   ..&Global Message:globmsg $$?="Message"
  51.   ..&Global Action:globme $$?="Action"
  52.   .&Host Globals
  53.   ..&Global Notice:ghost $$?="Host (eg. *.ix.netcom.com)" $$?="Notice"
  54.   ..&Global Message:ghostm $$?="Host (eg. *.ix.netcom.com)" $$?="Message"
  55.   ..&Global Action:ghostme $$?="Host (eg. *.ix.netcom.com)" $$?="Action"
  56. }
  57. menu nicklist {
  58.   &IRCop Coms
  59.   .&Kill:kill $$1 $$?="Reason For Kill"
  60.   .&Mass Kill:mkill $address( $$1 , [ $$?="Address level: (eg. 2)" ] )
  61.   .-
  62.   .&Nick Kline:kline $$1 $$?="Reason for Kline"
  63.   .&Address Kline:kline add $address($$1,3) $$?="Reason for Kline"
  64.   .-
  65.   .&Host Globals
  66.   ..&Global Host Notice:ghost $address($$1,2) $$?="Notice"
  67.   ..&Global Host Message:ghostm $address($$1,2) $$?="Message"
  68.   ..&Global Host Action:ghostme $address($$1,2) $$?="Action"
  69.   .-
  70.   .SAmode
  71.   ..SAop:saop $1-
  72.   ..SAdeop:sadeop $1-
  73.   ..SAmode:samode $$?="Channel [nick] mode"
  74.   .Omode
  75.   ..Oop:saop $1-
  76.   ..Odeop:sadeop $1-
  77.   ..Omode:samode $$?="Channel [nick] mode"
  78. }
  79. alias mkill {
  80.   if ($1 == $null) { set %mkilladdy $$?="Host to kill" | set %mkillreason $?="(Optional) Reason:" }
  81.   else { set %mkilladdy $1 }
  82.   set %mkilladdy2 %mkilladdy
  83.   if (%mkilladdy == * || %mkilladdy == *.* || %mkilladdy == *@* || %mkilladdy == . || %mkilladdy == **) { echo  $+ $clr(info) $+ *** Security Alert! Unable to Mass-Kill the whole network! | halt }
  84.   .enable #MKILL
  85.   set %mkillcount 0
  86.   set %mkillreason  $+ $clr(quit) $+  $+ $2- $+  $chr(91) $+ Mass-Kill of %mkilladdy $+ $chr(93)
  87.   echo  $+ $clr(info) $+ *** Starting Mass-Kill of: %mkilladdy2
  88.   set %mkilladdy * $+ $gethost(%mkilladdy) $+ *
  89.   .who %mkilladdy
  90. }
  91. #mkill off
  92. raw 352:* {
  93.   if ($6 == $me) { halt }
  94.   if (%mkilladdy iswm $3 $+ @ $+ $4) {
  95.     kill $6 %mkillreason
  96.     inc %mkillcount
  97.   }
  98.   halt
  99. }
  100. raw 315:* {
  101.   echo -a  $+ $clr(info) $+ *** Mass-Kill of %mkilladdy2 complete ( $+ %mkillcount users killed)
  102.   .disable #MKILL
  103.   unset %mkillcount
  104.   unset %mkilladdy
  105.   unset %mkilladdy2
  106.   unset %mkillreason
  107.   halt
  108. }
  109. #MKILL end
  110.